﻿Imports System.Data.OleDb

Public Class DataProvider
    Public Shared Function ConnectDB(ByVal dbName As String) As OleDbConnection
        Dim strCon = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & dbName
        Dim conn As New OleDbConnection(strCon)
        conn.Open()
        Return conn
    End Function
End Class
